home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / ENGINEER / H486.ZIP / GRNDWTR.ZIP / GRNDWATR.KB < prev    next >
Text File  |  1991-12-06  |  71KB  |  1,920 lines

  1. (* Groundwater Education System (C)                                  *)
  2. (* (C) Copyright, 1989 by Purdue Research Foundation,                *)
  3. (* West Lafayette, Indiana 47907.  All Rights Reserved.              *)
  4. (* Unless permission is granted, this material shall not             *)
  5. (* be copied, reproduced or coded for reproduction by                *)
  6. (* any electrical, mechanical or chemical processes, or              *)
  7. (* combinations thereof, now known or later developed.               *)
  8.  
  9. (* For additional information about this software contact:           *)
  10. (* Bernie Engel, AGEN, Purdue University, West Lafayette, IN 47907   *)
  11.  
  12.  
  13. no_debug ().
  14. no_edit_key ().
  15. load ('picture.hkb').
  16. load ('picgraph.hkb').
  17.  
  18. do ('Title').
  19.  
  20. do ('Main Program').
  21.  
  22. topic 'Title'.
  23. picgraph (purdue).
  24. picture (title).
  25. say ('
  26.  
  27.  
  28.  
  29.      To use this program follow these simple instructions...
  30.  
  31.      Press the SPACEBAR to continue.
  32.      Use the PAGE-UP and PAGE-DOWN keys to turn pages.
  33.      Use F3 to move the highlight bar and F4 to select.
  34.  
  35.  
  36.      If you want more instructions press here...
  37.  
  38.                           #mIntroduction to Hypertext#m
  39. ').
  40. say ('
  41.  
  42.                         Groundwater Education System
  43.  
  44.  
  45.                      #mJames Gurganus#m, Knowledge Engineer
  46.  
  47.                      #mBernard Engel#m, Assistant Professor
  48.  
  49.  
  50.                           Agricultural Engineering
  51.                               Purdue University
  52.  
  53.                   Copyright 1989 Purdue Research Foundation
  54.                              All Rights Reserved
  55.  
  56.  
  57.      This is a #mhypertext system#m designed for education concerning one of
  58.                   America''s major resources...groundwater.
  59. ').
  60.  
  61. topic 'Introduction to Hypertext'.
  62. say ('     This is a hypertext system.  A summary of the directions follows:
  63.      To advance from one section to another, press the SPACEBAR or click the
  64. left mouse button on SPACE at the bottom of the screen.
  65.      To advance from one page to the next in a section, press either the
  66. PAGE-DOWN Key or click the left mouse button on "Page" at the bottom of the
  67. screen.
  68.      To return to a previous page within a section, press either the PAGE-UP
  69. Key or click the right mouse button on "Page" at the bottom of the screen.
  70.      To engage a hypertext link, first select the topic by the F3 Key or
  71. by moving the cursor on it with the mouse.  Then, press the F4 Key or press
  72. the left mouse button.
  73.      Some pictures have hyperlinks also, to use these, select the topic with
  74. the F3 key or by moving the arrow with the mouse.  Then, press the F4 Key or
  75. the left mouse button to engage the topic.
  76.      To exit a picture without selecting a topic, press the SPACEBAR or the
  77. right mouse button.
  78.      Here is what a hyperlink looks like.  #mSample#m.
  79.      You may try the hypertext capabilities on it if you wish.  Otherwise,
  80. press the SPACEBAR or click on SPACE at the bottom of the screen to continue.
  81. ').
  82. end.
  83.  
  84. topic 'Sample'.
  85. window ('Sample',cyan,red,yellow,,,,6).
  86. say ('
  87.      VERY GOOD!  You have just demonstrated to yourself the
  88. capabilities of a hypertext system.  Whenever you see a word or
  89. phrase highlighted that you wish more information on, just select
  90. it.
  91. ').
  92. close_window ().
  93. end.
  94.  
  95. topic 'hypertext system'.
  96. do ('Introduction to Hypertext').
  97. end.
  98.  
  99. topic 'Bernard Engel'.
  100. window ('Bernard Engel',lightgreen,magenta,yellow).
  101. say ('
  102.   For additional information concerning this software, contact:
  103.  
  104.                       Bernard Engel
  105.                       Assistant Professor
  106.                       Agricultural Engineering
  107.                       Purdue University
  108.                       West Lafayette, IN 47907
  109.  
  110.                       Phone: (317) 494-1198
  111. ').
  112. close_window ().
  113. end.
  114.  
  115. topic 'James Gurganus'.
  116. window ('James Gurganus',lightgreen,blue,yellow,,,,15).
  117. say ('
  118.      James Gurganus is a senior (as of 1989) at F. J. Reitz High
  119. School in Evansville, Indiana.  He designed the Groundwater
  120. Education System during the #mHigh School Apprenticeship Program#m in
  121. which students selected from high schools (by application) do
  122. research for professors at Purdue University for around minimum
  123. wage.  His job was to create a knowledge base that answers four
  124. questions:
  125.                1.  What is groundwater?
  126.                2.  Why is groundwater important?
  127.                3.  What contaminates groundwater and how?
  128.                4.  What does one do if their groundwater becomes
  129.                    contaminated?
  130.      His knowledge base, the Groundwater Education System,  has
  131. achieved much interest on the Purdue Campus and beyond.
  132. ').
  133. end.
  134.  
  135. end.
  136.  
  137. topic 'High School Apprenticeship Program'.
  138. window ('High School Apprenticeship Program',lightmagenta,brown,yellow,,,,12).
  139. say ('
  140.  Purdue University Agricultural Research Apprenticeship Program
  141.  
  142.      For an application form or additional information, contact:
  143.  
  144.              Dr. Karl G. Brandt
  145.              School of Agriculture
  146.              Agricultural Administration Building
  147.              Purdue University
  148.              West Lafayette, IN 47907
  149.              Phone: (317) 494-8472
  150. ').
  151. close_window ().
  152. end.
  153.  
  154. topic 'Main Program'.
  155. do ('Groundwater').
  156. do ('The Menu').
  157.  
  158. topic 'The Menu'.
  159. write (con:,'#e
  160.  
  161.  
  162.      "Groundwater" is divided into several sections.
  163.  
  164.      Choose the section you would like to see.').
  165. list is ['Groundwater','Graphics','Current Events','Further Reading','Questionnaire',
  166.          'The Quiz','Quit'].
  167. move_cursor (5,10).
  168. menu (choice,?list).
  169. if ?choice <> 'Quit' then do (?choice) and do ('The Menu').
  170. end.
  171.  
  172. topic 'Current Events'.
  173. articles is 0. dummy is 0.
  174. do ('read info').
  175. close ('articles.dat').
  176. do ('show options').
  177.  
  178. topic 'read info'.
  179. eof is number_to_char (26).
  180. dummy is read_line ('articles.dat').
  181. if ?dummy=?eof or '' then exit().
  182. options gets ?dummy.
  183. dummy is read_line ('articles.dat').
  184. if ?dummy=?eof or '' then exit().
  185. articles_filename gets ?dummy.
  186. articles is ?articles+1.
  187. do ('read info').
  188. end.
  189.  
  190. topic 'show options'.
  191. write (con:,'#e #n Here are the articles available for reading.').
  192. move_cursor (3,5).
  193. options_menu is sublist (?options,1,?articles).
  194. options_menu gets 'Quit.'.
  195. menu (choice,?options_menu).
  196. if ?choice='Quit.' then exit().
  197. choice_filename is element (?articles_filename,where (?options,?choice)).
  198. text is read (?choice_filename).
  199. close (?choice_filename).
  200. say (?text).
  201. do ('show options').
  202. end.
  203.  
  204. end.
  205.  
  206. topic 'Graphics'.
  207. write (con:, '#e
  208.       Choose the graphic image you would like to view.
  209.  
  210. ').
  211. move_cursor (5,3).
  212. list is ['Purdue Logo','Title Screen','Groundwater Definition',
  213.      'Hydrologic Cycle','Water Consumption','Draw-Down Effect',
  214.      'Average Annual Rainfall','Perched Water Table',
  215.      'Indiana Groundwater Availability','Indiana Aquifers',
  216.      'Backflow Prevention','U.S. Water Sources','Water Treatment',
  217.      'Chemical Spill Series','Quit.'].
  218. picfilename is ['purdue','title','grndwtr','hydrolog','consume','drawdown',
  219.      'rainfall','perchwtr','indiana','indaqufr','backflow','usawater',
  220.      'treat'].
  221. menu (choice,?list).
  222. if ?choice<>'Quit.' and ?choice<>'Chemical Spill Series' then
  223.    picfile is element (?picfilename,where (?list,?choice)) and
  224.    picture (?picfile) and
  225.    do ('Graphics').
  226. if ?choice='Chemical Spill Series' then do ('chemical spill') and
  227.    do ('Graphics').
  228. end.
  229.  
  230.  
  231. topic 'Groundwater'.
  232. do ('Definition of Groundwater').
  233. do ('Importance of Groundwater').
  234. do ('Contamination of Groundwater').
  235. do ('What if Groundwater becomes Contaminated?').
  236. end.
  237.  
  238. topic 'Definition of Groundwater'.
  239. say ('
  240.                        The Definition of Groundwater
  241.  
  242.     Groundwater is the water beneath the surface that can be collected with
  243. wells, tunnels, or drainage galleries, or that flows naturally to the earth''s
  244. surface via seeps or springs.  Groundwater is the water that is pumped by
  245. wells and flows out through springs.
  246. ').
  247. do ('Groundwater Picture').
  248. end.
  249.  
  250. topic 'Groundwater Picture'.
  251. select is element (picture ('grndwtr',black,lightgray,N,
  252. [['recharge area',t,546,35],
  253. ['water table',t,403,89],
  254. ['nonflowing artesian well',t,345,54],
  255. ['water table well',t,219,47],
  256. ['flowing artesian well',t,190,84],
  257. ['surface water stream or pond',t,67,117],
  258. ['spring',t,178,126],
  259. ['water table aquifer',t,150,172],
  260. ['confining bed',t,145,208],
  261. ['artesian aquifer',t,122,249],
  262. ['confining bed',t,146,291],
  263. ['consolidated rock',t,298,299]]),2).
  264. if ?select <> '' then do (?select) and do ('Groundwater Picture').
  265. end.
  266.  
  267. topic 'recharge area'.
  268. window ('Recharge Area',lightcyan,green,yellow,,,,7).
  269. say ('
  270.      A recharge area is an area that allows water to enter the
  271. #maquifer#m.  The area is particularly vulnerable to any pollutants
  272. that could be in the water.  If pavement is constructed over this
  273. area, less water can enter the aquifer.  This could mean a water
  274. shortage to those people using the groundwater from the aquifer.
  275. ').
  276. close_window ().
  277. end.
  278.  
  279. topic 'Aquifer'.
  280. window ('Aquifer',lightgreen,red,yellow,,,,4).
  281. say ('
  282.      An aquifer is a layer of ground that allows water to pass
  283. through easily.
  284. ').
  285. close_window ().
  286. end.
  287.  
  288. topic 'water table'.
  289. window ('Water Table',brown,lightgray,yellow,,,,10).
  290. say ('
  291.      The water table is the level at which the water stays.  It
  292. is the very top of the zone of saturation.  A few centimeters
  293. above this level water can also be found due to capillary action.
  294. In the presence of a pumping well, the water table will drop
  295. around the well.  This situation is called #mdrawdown#m. Under some
  296. conditions, a #mperched water table#m may exist.  This occurs when the
  297. water percolation is interrupted by another confining layer above
  298. the "main" one.
  299. ').
  300. close_window ().
  301.  
  302. topic 'drawdown'.
  303. picture (drawdown).
  304. end.
  305.  
  306. topic 'perched water table'.
  307. picture (perchwtr).
  308. end.
  309.  
  310. end.
  311.  
  312. topic 'nonflowing artesian well'.
  313. window ('Nonflowing Artesian Well',red,cyan,yellow,,,,6).
  314. say ('
  315.      A nonflowing artesian well occurs when the pressure is not
  316. great enough to force the water out of the well.  In this
  317. diagram, this is apparent because the flowing artesian well is at
  318. a lower elevation than the non-flowing artesian well.
  319. ').
  320. close_window ().
  321. end.
  322.  
  323. topic 'water table well'.
  324. window ('Water Table Well',black,lightmagenta,yellow,,,,4).
  325. say ('
  326.      A water table well is a well that only extends down into the
  327. water table aquifer.
  328. ').
  329. close_window ().
  330. end.
  331.  
  332. topic 'flowing artesian well'.
  333. window ('Flowing Artesian Well',darkgray,lightcyan,yellow,,,,8).
  334. say ('
  335.      A flowing artesian well is one that has penetrated into a
  336. artesian aquifer.  Artesian aquifers have pressure built up
  337. within themselves.  This pressure results from a portion of the
  338. aquifer being at a higher elevation as shown in the figure.  The 
  339. pressure is released when a well is bored into it.  This causes 
  340. the well to flow spontaneously.
  341. ').
  342. close_window ().
  343. end.
  344.  
  345. topic 'surface water stream or pond'.
  346. window ('Surface Water Stream or Pond',lightred,blue,yellow,,,,5).
  347. say ('
  348.      A surface water stream or pond is caused by a high water
  349. table.  Also, a high water table can result from a stream and
  350. pond in that area.
  351. ').
  352. close_window ().
  353. end.
  354.  
  355. topic 'spring'.
  356. window ('Spring',red,lightgray,yellow,,,,5).
  357. say ('
  358.      A natural spring occurs when the water table is higher than
  359. the ground surface.  Pressure forces the water out of the land at
  360. a weak point which creates the spring.
  361. ').
  362. close_window ().
  363. end.
  364.  
  365. topic 'water table aquifer'.
  366. window ('Water Table Aquifer',yellow,brown,yellow,,,,5).
  367. say ('
  368.      The water table aquifer is an #maquifer#m that supports the
  369. water table.  The top limit to this aquifer is the water table
  370. itself.
  371. ').
  372. close_window ().
  373. end.
  374.  
  375. topic 'confining bed'.
  376. window ('Confining Bed',lightgreen,cyan,yellow,,,,7).
  377. say ('
  378.      A confining bed is a layer of ground that resists water
  379. penetration.  This layer is typically finer textured and denser 
  380. than above layers of soil.  Confining beds can keep water from 
  381. seeping to unreachable depths, but can also prevent water from 
  382. reaching aquifers.
  383. ').
  384. close_window ().
  385. end.
  386.  
  387. topic 'artesian aquifer'.
  388. window ('Artesian Aquifer',lightred,blue,yellow,,,,9).
  389. say ('
  390.      An artesian aquifer is an #maquifer#m that has pressure built
  391. up inside.  This pressure is the result of the recharge area of
  392. the aquifer being at a higher level than the rest of the aquifer
  393. region.  The force of gravity pulls the higher water down which
  394. creates extra pressure inside the aquifer.  This is why artesian
  395. wells flow by themselves; the pressure forces the water out of 
  396. the well.
  397. ').
  398. close_window ().
  399. end.
  400.  
  401. topic 'consolidated rock'.
  402. window ('Consolidated Rock',lightgreen,cyan,yellow,,,,5).
  403. say ('
  404.      Consolidated rock is rock that contains very few holes or
  405. cracks for water to get through.  Unconsolidated rock is rock
  406. such as gravel. Consolidated rock can serve as a #mconfining bed#m.
  407. ').
  408. close_window ().
  409. end.
  410.  
  411. topic 'Importance of Groundwater'.
  412. say ('
  413.                        The Importance of Groundwater
  414.  
  415.      Groundwater is the primary source of water for 50 percent of the
  416. #mAmerican population#m and is 95 percent for those people in rural areas.  In
  417. #mIndiana#m, 58 percent of the population uses groundwater.
  418.      Groundwater plays an important role in the #mhydrological cycle#m.
  419. Groundwater is also important to those who have #mlimited precipitation#m each
  420. year.  #mWater usage#m in itself is vital to the normal operation of our daily
  421. lives.
  422.      Groundwater is the safest and most reliable source of available
  423. #mfreshwater#m.  Only #fyellow three percent#d of Earth''s freshwater is located in streams,
  424. lakes, and reservoirs.  The remaining #fyellow 97 percent#d of freshwater is
  425. underground.
  426.  
  427.  
  428.  
  429.                            ...more on next page...
  430.  
  431.      Water is obviously a major resource of the United States.  Ninety percent
  432. of this water resource is groundwater.  Groundwater can also be utilized for 
  433. energy production in the form of #mgeothermal energy#m as well as energy
  434. conservation by using #mheat pumps#m.  In America, the amount of #mwater usage#m
  435. for each person is 168 gallons per day.  United States agriculture uses two-
  436. thirds of the estimated 88 billion gallons per day of groundwater withdrawals
  437. for irrigation.
  438.      In Indiana, 58 percent of the total population uses groundwater as their
  439. water source.  Of the public supply systems in Indiana, 43 percent use 
  440. groundwater.  And of the people who live in rural areas in Indiana, 87 percent 
  441. use groundwater.  About 500,000 individual homes, 425 public water systems, 
  442. 350 mobile home parks, and 2,500 non-community water supplies are dependent on 
  443. groundwater.  Rural residential use of groundwater is projected to increase by 
  444. 44 percent by the year 2000.  Groundwater is vital for Indiana''s industrial 
  445. and agricultural growth and development.  According to reports in 1985 for 
  446. Indiana, industry uses an average of 190 million gallons per day of 
  447. groundwater, irrigation currently consumes an average of 200 million gallons 
  448. per day during the growing season and livestock operations depend on an 
  449. average of 45 million gallons per day.              ...more on next page...
  450.  
  451.      The availability and quality of groundwater varies widely across the
  452. state of #mIndiana#m.  In general, well yields range from less than five gallons 
  453. per minute in bedrock aquifers in southwest Indiana to several thousand 
  454. gallons per minute wells in #maquifers#m beneath and adjacent to Indiana''s major
  455. rivers.
  456.      Most #mfreshwater#m or potable groundwater in Indiana occurs at depths of 40 
  457. feet to 300 feet.  Highly mineralized waters are usually found at greater 
  458. depths.  Much of Indiana''s groundwater is #mmoderately to excessively hard#m,
  459. from the presence of dissolved calcium and magnesium, and frequently contains 
  460. unwanted levels of iron, manganese, or hydrogen sulfide, that conventional 
  461. water treatment can correct for normal use.
  462. ').
  463. end.
  464.  
  465. topic 'aquifers'.
  466. picture (indaqufr).
  467. window ('Indiana Aquifers',lightcyan,red,yellow,,,,7).
  468. say ('
  469.      Most of Indiana''s aquifer system originates from the
  470. ice age.  Glaciers during this period pushed down material that
  471. created aquifers in their present location.  Notice the
  472. similarities between Indiana''s aquifers and the Indiana
  473. #mgroundwater availability map#m.
  474. ').
  475. close_window ().
  476. end.
  477.  
  478. topic 'groundwater availability map'.
  479. do ('Indiana').
  480. end.
  481.  
  482. topic 'moderately to excessively hard'.
  483. do ('softened water').
  484. end.
  485.  
  486. topic 'hydrological cycle'.
  487. select is element (picture ('hydrolog',black,lightgray,N,
  488. [['evaporation',t,329,84],
  489. ['evaporation',t,209,115],
  490. ['evaporation',t,231,150],
  491. ['transpiration',t,300,176],
  492. ['evaporation',t,365,198],
  493. ['precipitation',t,118,72],
  494. ['infiltration',t,45,207],
  495. ['deep percolation',t,88,298],
  496. ['evaporation',t,502,231],
  497. ['evaporation',t,606,217],
  498. ['rain gage',t,93,183],
  499. ['vapors',t,328,34],
  500. ['runoff',t,417,208],
  501. ['observation well',t,197,242],
  502. ['evaporation station',t,338,263],
  503. ['quality of water station',t,513,297],
  504. ['aquifer',t,50,340],
  505. ['snow course survey',t,18,98]]),2).
  506. if ?select <> '' then do (?select) and do ('hydrological cycle').
  507. end.
  508.  
  509. topic 'evaporation'.
  510. window ('Evaporation',lightmagenta,red,yellow,,,,4).
  511. say ('
  512.      Evaporation is the process of water molecules gaining enough
  513. energy to convert from a liquid form into a gaseous form.
  514. ').
  515. close_window ().
  516. end.
  517.  
  518. topic 'transpiration'.
  519. window ('Transpiration',lightgreen,red,yellow,,,,7).
  520. say ('
  521.      Transpiration is one of the functions of plants.  During
  522. photosynthesis, plants give and take water from the atmosphere
  523. for their chemical reactions. The water they use is already in
  524. gaseous state so it does not need to evaporate; the water goes
  525. directly into the atmosphere.
  526. ').
  527. close_window ().
  528. end.
  529.  
  530. topic 'precipitation'.
  531. window ('Precipitation',lightcyan,red,yellow,,,,5).
  532. say ('
  533.      Precipitation is the act of moisture falling from the clouds
  534. in any way or form.  The precipitation could be in rain, snow,
  535. sleet, or hail.
  536. ').
  537. close_window ().
  538. end.
  539.  
  540. topic 'infiltration'.
  541. window ('Infiltration',lightcyan,brown,yellow,,,,6).
  542. say ('
  543.      Infiltration is the process of water moving down through the
  544. soil.  Any pollutants dissolved in the water will enter the soil
  545. along with it.  This is how accidents such as a #mchemical spill#m
  546. can contaminate groundwater.
  547. ').
  548. close_window ().
  549. end.
  550.  
  551. topic 'deep percolation'.
  552. window ('Deep Percolation',lightgreen,brown,yellow,,,,5).
  553. say ('
  554.      Deep percolation is the process of water continuing to move
  555. through the soil at lower levels.  This is very similar to 
  556. infiltration.
  557. ').
  558. close_window ().
  559. end.
  560.  
  561. topic 'rain gage'.
  562. window ('Rain Gage',lightmagenta,brown,yellow,,,,5).
  563. say ('
  564.      Rain gages are the devices used to measure the rainfall.
  565. Most rain gages used today can also be used to measure frozen
  566. precipitation as well.
  567. ').
  568. close_window ().
  569. end.
  570.  
  571. topic 'vapors'.
  572. window ('Vapors',lightgreen,cyan,yellow,,,,6).
  573. say ('
  574.      Vapors are the water molecules in gaseous form.  When the
  575. vapors begin to condense around dust particles in the air, one
  576. can see the development as clouds.  When enough condensation
  577. occurs, precipitation falls from the cloud.
  578. ').
  579. close_window ().
  580. end.
  581.  
  582. topic 'runoff'.
  583. window ('Runoff',red,green,yellow,,,,6).
  584. say ('
  585.      Runoff is the excess water flowing off the land.  This is
  586. water that was unable to infiltrate the soil.  Plants, plant
  587. residue, and other debris on the land can help stop or slow the
  588. water flow and give it the opportunity to seep into the soil.
  589. ').
  590. close_window ().
  591. end.
  592.  
  593. topic 'observation well'.
  594. window ('Observation Well',lightcyan,green,yellow,,,,4).
  595. say ('
  596.      An observation well monitors the level of the water table in
  597. the ground.
  598. ').
  599. close_window ().
  600. end.
  601.  
  602. topic 'evaporation station'.
  603. window ('Evaporation Station',darkgray,green,yellow,,,,3).
  604. say ('
  605.      An evaporation station monitors the rate of evaporation.
  606. ').
  607. close_window ().
  608. end.
  609.  
  610. topic 'quality of water station'.
  611. window ('Quality of Water and Stream Gaging Station',lightmagenta,red,yellow
  612.         ,,,,5).
  613. say ('
  614.      The quality of water and stream gaging stations record the
  615. quality of the water.  They also monitor the water level and
  616. other water information.
  617. ').
  618. close_window ().
  619. end.
  620.  
  621. topic 'snow course survey'.
  622. window ('Snow Course Survey',lightcyan,brown,yellow,,,,4).
  623. say ('
  624.      The snow course survey calculates the amount of snowfall in
  625. its area.
  626. ').
  627. close_window ().
  628. end.
  629.  
  630. topic 'limited precipitation'.
  631. picture (rainfall).
  632. window ('Limited Precipitation',lightgreen,cyan,yellow,,,,7).
  633. say ('
  634.      In areas that have low rainfall, groundwater is of special
  635. importance because in these areas surface water is virtually
  636. nonexistent.  If conditions are particularly arid, then
  637. groundwater supplies will also suffer due to the lack of
  638. replenishment.
  639. ').
  640. close_window ().
  641. end.
  642.  
  643. topic 'water usage'.
  644. picture (consume).
  645. window ('Water Usage',red,green,yellow,,,,8).
  646. say ('
  647.      It is evident from this graph that everyday tasks such as
  648. flushing a toilet consume large amounts of water.  There are 
  649. ways, however, to reduce these amounts with economy #mwater saving#m
  650. devices.  If measures to save water aren''t taken now, economy 
  651. devices may eventually have to be required for all machines using
  652. water in any way because of water shortages.
  653. ').
  654. close_window ().
  655.  
  656. topic 'water saving'.
  657. window ('Water Saving',lightcyan,red,yellow).
  658. say ('
  659.      Unbelievable amounts of water can be saved by taking simple
  660. water saving measures.  Water use can be cut to an amazing 89 
  661. percent in some cases.  Some water-saving fixtures can be found 
  662. as standard options on appliances that use water.  The following 
  663. tables describe how water can be saved in numerical form.  About 
  664. 70 percent of the total water used in the home is for toilet 
  665. flushing, laundry, and baths.  So, the most significant water 
  666. savings can be made in these areas.
  667.                     ...more on next page...
  668.  
  669. Fixture                Liters per Use          Water Savings
  670. -----------------------------------------------------------------
  671. Toilets
  672.    Conventional              19                      ---
  673.    Common Low-Flush          13                      32%
  674.    Washdown                   4                      79%
  675.    Air-Assisted               2                      89%
  676. Clothes Washers
  677.    Conventional             140                      ---
  678.    Water Recycle            100                      29%
  679.    Front-Loading             80                      43%
  680. Fixture               Liters per Minute         Water Savings
  681. -----------------------------------------------------------------
  682. Showerheads
  683.    Conventional              19                      ---
  684.    Common Low-Flow           11                      42%
  685.    Flow-Limiting              7                      63%
  686.    Air-Assisted               2                      89%
  687. Faucets
  688.    Conventional              12                      ---
  689.    Common Low-Flow           10                      17%
  690.    Flow-Limiting              6                      50%
  691. ').
  692. close_window ().
  693. end.
  694.  
  695. end.
  696.  
  697. topic 'freshwater'.
  698. window ('Freshwater',lightmagenta,brown,yellow,,,,5).
  699. say ('
  700.      Freshwater is water as opposed to saltwater found in the
  701. oceans and some seas.  Freshwater, under most circumstances,
  702. contains less salt than saltwater.
  703. ').
  704. close_window ().
  705. end.
  706.  
  707. topic 'american population'.
  708. picture (usawater).
  709. window ('American Population Water Supply',lightgreen,red,yellow,,,,7).
  710. say ('
  711.      As was evident in the map, groundwater is the only source of
  712. water for many people.  In many states, all of the rural citizens
  713. use groundwater for their water supply.  In some states,
  714. groundwater is used as the public supply for most of the 
  715. population.
  716. ').
  717. close_window ().
  718. end.
  719.  
  720. topic 'Indiana'.
  721. picture (indiana).
  722. window ('Indiana Groundwater Availability',lightcyan,blue,yellow,,,,5).
  723. say ('
  724.      Indiana''s groundwater availability is basically caused by
  725. the location and type of aquifers in the state.  See also the
  726. map of Indiana''s #maquifers#m.
  727. ').
  728. close_window ().
  729. end.
  730.  
  731. topic 'geothermal energy'.
  732. window ('Geothermal Energy',lightcyan,brown,yellow).
  733. say ('
  734.      Groundwater is heated at an increase of about 1 to 5 degrees
  735. Celcius per 100 meters depth increase.  Places where the water
  736. heats at a faster rate are called geothermal anomalies.  These
  737. are associated with tectonic plate friction at the boundaries and
  738. volcanic activity.  In these particular areas, the earth''s crust
  739. is relatively thin allowing thermal springs and geysers to appear
  740. as surface manifestations of geothermal anomalies.
  741.  
  742.                      ...more on next page...
  743.  
  744.      The temperature of deep geothermal water can be above 100
  745. degrees Celcius and temperatures of 200 to 300 degrees Celcius
  746. are not uncommon.  When this water nears the surface, the
  747. surrounding rock absorbs most of this heat leaving the water
  748. emerging with a temperature below the boiling point.  When the
  749. water rises rapidly, however, there is little time for the heat
  750. to be absorbed.  When this occurs, the water flashes into steam
  751. because of decreased pressure and high temperature.  This steam
  752. is what is utilized for geothermal energy production.
  753.  
  754.                      ...more on next page...
  755.      The use of geothermal energy for electrical-power generation
  756. is receiving increasing amounts of interest as new additional
  757. energy sources must be found.  The amount of heat in Earth''s
  758. crust is tremendous.  Within a depth of 10 kilometers (the
  759. practical limit to drilling), the total amount of heat stored is
  760. estimated at 3 X 10^26 calories.  About one-fourth of this energy
  761. is under the continents.  This is more than 5,000 times the heat
  762. energy in world coal resources.  In the United States alone, the
  763. heat within 10 kilometers depth is about 8 X 10^24 calories.
  764. This is equivalent to 9.3 X 10^18 kiloWatt hours.
  765. ').
  766. end.
  767.  
  768. topic 'heat pumps'.
  769. window ('Heat-Pumps',lightmagenta,red,yellow).
  770. say ('     Since groundwater temperatures are relatively constant all
  771. year at depths below 10 to 20 meters.  The groundwater
  772. temperatures in this area are the same as the local average
  773. annual air temperatures.  The constancy of the temperatures in
  774. groundwater is an important factor for heat pumps.  Heat pumps
  775. operate by pumping heat into the water to cool the home and by
  776. pumping heat out of the water to heat the home.  Heat pumps first
  777. used air for pumping heat in or out, but groundwater is receiving
  778. increased attention because the air temperatures fluctuate too
  779. much in some areas.
  780.                    ...more on next page...
  781.      For example, if the air temperature is near freezing as in
  782. the winter, it takes much more energy to pump enough heat out
  783. of the air to heat the home.  Since the groundwater is higher
  784. than the air temperature - around 10 to 15 degrees Celcius - it
  785. is much more economical to use the water than the air.  The
  786. principal holds true for the summer as well.  Groundwater cooler
  787. than the air is much more receptive to take in the heat than the
  788. hot air.  At current gas prices, heat pumps, which operate on
  789. electricity, are much more efficient than using natural gas to
  790. heat the home.
  791. ').
  792. close_window ().
  793. end.
  794.  
  795. topic 'Contamination of Groundwater'.
  796. say ('
  797.                      The Contamination of Groundwater
  798.  
  799.      Groundwater, under most conditions, is safer and more reliable for use
  800. than surface water.  Part of the reason for this is that surface water is
  801. more readily exposed to pollutants from factories, for example, than
  802. groundwater is.  This by no means says that groundwater is invulnerable to
  803. contamination.  Once groundwater is contaminated, it is an extremely costly
  804. operation to remove the contaminate.  Any chemicals that are easily soluble
  805. and penetrate the soil are prime candidates for groundwater pollutants.
  806.      The list of contaminates for groundwater is long.  Some contaminates such
  807. as arsenic, occur naturally in some areas of the earth''s crust.  Also, salt
  808. in large concentrations can be considered a contaminate.  Groundwater on the
  809. average is more saline than surface water but still cannot be considered
  810. saltwater.  Also, groundwater contains more sodium, boron, and nitrate than
  811. surface water does.  Another problem with groundwater is its sulfur, magnesium,
  812. and calcium content.  Calcium carbonate is one of the causes of #mhardwater#m.
  813.  
  814.                           ...more on next page...
  815.      There are an estimated 181,000 industrial surface impoundments (lagoons);
  816. 16,000 industrial landfill sites containing hazardous wastes; 18,500 known,
  817. active municipal landfills; and 20 million septic systems in the United
  818. States.  Virtually all of these are located in rural areas.  Each year, an
  819. 3.5 million to 21 million pounds of pesticides reach ground or surface water
  820. before degradation.  Thirty-four states have identified agricultural nonpoint 
  821. source pollution as a major cause of non-achievement of state water quality 
  822. goals.  Twenty-nine states have identified nonpoint source pollution of 
  823. groundwater as a major concern and cited agricultural pesticides and septic 
  824. tank seepage as primary specific concerns.  In the mid 1970''s, elevated 
  825. nitrate levels attributed to fertilizer infiltration began to be detected in 
  826. rural groundwater supplies.  Nitrates are especially a problem when applied
  827. over sandy soils or unconfined aquifers.  By the early 1980''s, several
  828. incidents of groundwater contamination resulting from the field application of
  829. pesticides had been confirmed.  Normal agricultural use has apparently led to
  830. residues of 46 different pesticides in the groundwater of 26 states.
  831. #mAgricultural chemicals#m play a major role in groundwater contamination.
  832.  
  833.                           ...more on next page...
  834.  
  835.      In Indiana, groundwater is usually very hard - with hardness
  836. concentrations greater than 180 mg/L (milligrams per liter) as calcium
  837. carbonate.  Large concentrations of iron are also common.  In some areas of
  838. the state, large concentrations of iron (as much as 3,000 micrograms/liter)
  839. and manganese (as much as 1000 micrograms/liter) are present in the ground-
  840. water.  The only other commonly occurring constituent of some concern is
  841. sulfate, which exceeds the 250 milligram/liter drinking-water standard.  Most
  842. of the water in Indiana, however, is #mpotable#m.  Water from 67 percent of
  843. the public water-supply wells has been analyzed for organic compounds, and
  844. water from about eight percent of those wells contained at least one
  845. detectable organic compound.  Natural groundwater from all but very shallow
  846. aquifers is usually considered free from pathogenic #mbacteria and viruses#m.
  847.  
  848.  
  849.  
  850.  
  851.                           ...more on next page...
  852.  
  853.      The United States Environmental Protection Agency has identified 23
  854. hazardous-waste sites in Indiana as of 1986 for inclusion on the National
  855. Priorities List (NPL), or "Superfund", Comprehensive Environmental Response,
  856. Compensation, and Liability Act (CERCLA) of 1980.  The Interagency Groundwater
  857. Task Force has estimated that as many as 50 of the 853 sites now undergoing
  858. evaluation for inclusion on the NPL will be listed.  The U.S. Department of
  859. Defense has identified 32 hazardous-waste sites at three facilities in
  860. Indiana as having potential for contamination.  Six sites at two facilities 
  861. present a hazard significant enough to warrant response action in accordance 
  862. with CERCLA.  Hazardous wastes are disposed of at 28 Resources Conservation 
  863. and Recovery Act (RCRA) sites.  The EPA has estimated that 500 public water 
  864. supplies in Indiana may have radium levels exceeding 5 picoCuries/liter as 
  865. #mradioactive contaminates#m.  Indiana has 113 solid-waste landfills that are 
  866. permitted by the State and 687 abandoned landfills.  About 95 solid waste 
  867. disposal landfills in Indiana which were once permitted are now closed.  
  868. Ninety-six of the 1,774 public water-supply wells (each serving more than 25 
  869. people) have water with detectable concentrations of dangerous organic 
  870. compounds.
  871.                            ...more on next page...
  872.  
  873.      There are about 1,800 facilities which are reported to generate over
  874. 1,000 kilograms per month of hazardous waste in Indiana.  Annually, nearly 4
  875. million tons of hazardous waste are generated in the state.  There are about
  876. 350 facilities where some 12 million tons per year of hazardous waste are
  877. treated, stored or disposed (TSD).  A significant portion of this is from 
  878. out-of-state sources.  Thirty-four of these TSD sites are for land disposal 
  879. of hazardous waste in 26 landfills, 38 surface impoundments, and 3 land
  880. application areas.
  881.      Some public wells have already been seriously contaminated.  In the past
  882. five years, at least 17 of those 1,774 water supply wells in the state were
  883. taken out of service due to contamination.  The EPA results to date indicate
  884. trace levels of synthetic organic chemicals in at least 96 of the wells, 47 of
  885. which represented some cancer risk to about a quarter million users.
  886.  
  887.  
  888.  
  889.                           ...more on next page...
  890.  
  891.      Groundwater isn''t impervious to contamination as sometimes thought.
  892. Although it is not as vulnerable as surface water, contaminates can still
  893. reach wells and therefore one''s household.  A potential pollution problem can
  894. still reach a well miles away through underground water currents.  For
  895. example, a #mchemical spill#m at a industrial plant miles away could
  896. infiltrate the ground and eventually enter the aquifer system that a entire
  897. community uses for their private wells.  This situation could have
  898. devastating effects.
  899.      Of the reported spills during 1986, 50 percent occurred at industrial or
  900. commercial facilities, 23 percent from transportation accidents, and 9 percent
  901. from agricultural accidents.  The types of spilled materials were petroleum
  902. products 49 percent, miscellaneous chemicals 18 percent, and agricultural
  903. chemicals 12 percent.  The causes of these releases were due to equipment
  904. failure in 38 percent of the incidents while employee error caused 21 percent,
  905. and transportation accidents involved another 15 percent.
  906.      Indiana is estimated to have over 60,000 buried storage tanks holding
  907. motor fuels and chemicals.  According to the EPA it is estimated that 10-25
  908. percent of the underground storage tanks across the country are leaking.
  909.      Practically all users of groundwater are also its potential polluters.
  910. ').
  911. end.
  912.  
  913. topic 'potable'.
  914. window ('Potable Water',darkgray,green,yellow,,,,5).
  915. say ('
  916.      Potable means the water is free from disease-causing
  917. organisms and contains no chemical amounts that exceed the
  918. maximum allowable chemical concentrations.  
  919. ').
  920. close_window ().
  921. end.
  922.  
  923. topic 'hardwater'.
  924. window ('Hardwater',lightmagenta,brown,yellow,,,,8).
  925. say ('
  926.      Hardwater is a problem caused by excess quantities of
  927. calcium carbonate and magnesium from soil and limestone.  The
  928. general solution for this situation is to use a water softener.
  929. Symptoms of this include soap deposits, scaly deposits in
  930. plumbing and appliances, and decreased cleaning action of soaps
  931. and detergents.
  932. ').
  933. close_window ().
  934. end.
  935.  
  936. topic 'agricultural chemicals'.
  937. window ('Agricultural Chemicals',lightgreen,red,yellow).
  938. say ('     Areas of potential contamination from pesticide and
  939. fertilizer use include 1,437 counties - about 46 percent of the
  940. counties in the continental U.S.  There are 814 counties with
  941. potential pesticide contamination.  These are mainly located
  942. along the Eastern Seaboard, Gulf Coast, and Upper Midwest.
  943. Counties with potential nitrate contamination (from fertilizers)
  944. total 309. These occur mainly in the Great Plains and portions of
  945. the Northwest and Southwest.  Counties that have both pesticide
  946. and nitrate contamination potential number 314.  These are
  947. located chiefly in the Corn Belt, Lake States, and Northeast.
  948.                     ...more on next page...
  949.  
  950.      The 1,437 counties with potential pesticide or nitrate
  951. contamination are intensively farmed.  On average, 33 percent of
  952. all land in the counties is in crops.  This compares with 16
  953. percent nationwide.  More than 70 percent of the crop acreage is
  954. devoted to corn, wheat, or soybeans.  Though strongly
  955. agricultural, these counties are heavily populated -- 27 percent
  956. of the land but 47 percent of the people.
  957.  
  958.                     ...more on next page...
  959.  
  960.  
  961.      Recent EPA data indicates that of 45,000 wells around the
  962. United States tested for pesticides, 5,500 had harmful levels of
  963. of at least one pesticide, while an additional 5,500 had traces
  964. of 73 different pesticides in amounts considered unharmful.  Of
  965. those 73 pesticides, some can cause cancer, birth defects, and
  966. genetic damage.
  967.      This contamination is particularly serious for private
  968. groundwater wells.  These wells are not covered by legislation,
  969. so annual testing is imperative.
  970.                     ...more on next page...
  971.  
  972.      According to the 1980 Census of Population and Housing on
  973. drinking water sources, more than 50 million people rely on
  974. groundwater for their drinking needs in these 1,437 potentially
  975. contaminated counties.  Of these people, 19 million obtain their
  976. water from private wells.  Private wells may be more vulnerable
  977. than regulated public wells because they are often shallower and
  978. not built as well.   More than 65 percent of these people live in
  979. areas where only pesticide contamination potential exists.  Less
  980. than 10 percent live in areas of nitrate contamination potential.
  981.                     ...more on next page...
  982.      Agricultural chemicals could affect a significant component
  983. of the United States population - over 50 million people.  This
  984. occurs because of the density of population in the areas affected
  985. and their heavy reliance on groundwater and private wells.  
  986. Proper use and handling of agricultural chemicals, such as
  987. #mback-siphoning prevention#m, can greatly reduce the chances of
  988. water contamination.
  989.  
  990.  
  991.  
  992.                       ...more on next page...
  993.      Although agricultural chemicals and fertilizers are
  994. potential sources of groundwater contamination, proper management
  995. can minimize the risk of contamination.  Proper timing and
  996. application of agricultural chemicals greatly reduces the chance
  997. of groundwater contamination.  Proper farmstead design and layout
  998. can significantly reduce the chance of well contamination.
  999. Surface runoff should not be allowed to pond near the surface of
  1000. wells.
  1001.  
  1002.                      ...more on next page...
  1003.  
  1004.      Animal waste is one of the greatest contributors to water
  1005. quality problems in Indiana.  Proper management and application
  1006. of animal wastes can minimize potential problems.  For additional
  1007. information concerning agricultural practices to reduce the risk
  1008. of water contamination, contact the #mCooperative Extension Service#m
  1009. at Purdue University.
  1010. ').
  1011. close_window ().
  1012. end.
  1013.  
  1014. topic 'back-siphoning prevention'.
  1015. picture (backflow).
  1016. end.
  1017.  
  1018. topic 'bacteria and viruses'.
  1019. window ('Bacteria and Viruses',lightmagenta,red,yellow,,,,13).
  1020. say ('
  1021.      Pathogenic bacteria and viruses are generally absent from
  1022. aquifers.  Usually only shallow aquifers which are highly
  1023. susceptible to human waste will contain microorganisms harmful
  1024. to humans.  However, the general absence of pathogens (disease
  1025. causing organisms) in natural groundwater creates a false sense
  1026. of security which periodically is brought to fore when ground-
  1027. water in aquifers or in distribution systems is contaminated with
  1028. polluted water and when lack of chlorination or other types of
  1029. disinfection causes disease outbreaks.  Microbial life in an
  1030. aquifer is entirely possible, and nonpathogenic microorganisms
  1031. native to the aquifer may show up in well discharges.
  1032. ').
  1033. close_window ().
  1034. end.
  1035.  
  1036. topic 'radioactive contaminates'.
  1037. window ('Radioactive Contaminates',lightcyan,brown,yellow,,,,12).
  1038. say ('
  1039.      Radium is the chief element in groundwater that produces a
  1040. threat to health from radioactivity.  One of the common isotopes
  1041. of radium, Ra-226, is the most toxic of all inorganic substances.
  1042. Despite this, it is found naturally in the ground.  Fifteen
  1043. community water systems in Texas are unable to meet proposed
  1044. radium concentration limits.  Because water stays in the ground
  1045. for such long periods of time, the potential for radioactive
  1046. contamination exists.  Regulators have set the #mradiation limits#m
  1047. so low that the biological effects are almost impossible to
  1048. detect.
  1049. ').
  1050. close_window ().
  1051. end.
  1052.  
  1053. topic 'radiation limits'.
  1054. window ('Radiation Limits',lightcyan,green,yellow).
  1055. say ('         Radionuclide               Maximum Contaminant Level
  1056. --------------------------------|--------------------------------
  1057. Radium-226 and Radium-228       | Combined Limit of 5 pCi/L*
  1058. Gross Alpha Particle (including |
  1059.   radium-226 but excluding radon| No more than 4 millirem/year
  1060.   and uranium)                  |
  1061. Tritium                         | 20,000 pCi/L
  1062. Strontium-90                    | 8 pCi/L
  1063. --------------------------------|---------------------------------
  1064. * pCi/L = picoCurie per liter - the quantity of radioactive
  1065.   material producing 2.22 nuclear transformations per minute.
  1066. ').
  1067. close_window ().
  1068. end.
  1069.  
  1070. topic 'chemical spill'.
  1071. write (con:,'#e').
  1072. picgraph (chem1).
  1073. picgraph (chem2).
  1074. picgraph (chem3).
  1075. picture (chem4).
  1076. end.
  1077.  
  1078. topic 'What if Groundwater becomes Contaminated?'.
  1079. say ('
  1080.               "What do I do if my water becomes contaminated?"
  1081.  
  1082.      The first obvious thing to do if your water becomes contaminated is to
  1083. proceed with #mwater testing#m to find the cause or causes.  Acceptable quality
  1084. depends on the ultimate use of the water.  Drinking water should be of high
  1085. quality - safe and palatable.  Potable means the water is free from disease-
  1086. causing organisms and contains no chemical amounts that exceed the maximum
  1087. #mallowable chemical concentrations#m.  #mPalatable water#m is water that is nice
  1088. to drink with an acceptable flavor, appearance, and odor.
  1089.      Soil-filtered water is not necessarily purified and safe.  Clear water
  1090. could contain microorganisms or unseen chemical contaminants.  Colored water,
  1091. on the other hand, is not always unsafe.  To know whether your water is
  1092. acceptable for its intends uses:
  1093.      - Determine the #mquality needed for each use#m;
  1094.      - Test the water for bacteriological quality;
  1095.      - Analyze for chemical quality;
  1096.      - #mTreat the water#m if needed.
  1097.                           ...more on next page...
  1098.  
  1099.      For more information on your groundwater supply in Indiana, contact:
  1100.  
  1101.                          Div. Public Water Supply
  1102.                          Indiana State Board of Health
  1103.                          1330 W. Michigan Street
  1104.                          Indianapolis, IN 46206
  1105.                          (317) 633-0174
  1106. ').
  1107.  
  1108. topic 'water testing'.
  1109. say ('
  1110.      Testing is the responsibility of the homeowner.  State laws do not 
  1111. require that private wells be tested except in some states during property 
  1112. transfers.  Periodic monitoring is the only way to assure that your water 
  1113. is safe to drink.
  1114.      The following institutions may be able to test your water 
  1115. for a nominal fee:
  1116.      o Department of Public Health - state, county, or local;
  1117.      o State university laboratories;
  1118.      o State Department of Environmental Resources.
  1119.  
  1120.      Private laboratories are listed in the yellow pages under "Water,
  1121. quality" or "Laboratories, Testing."  Ask the laboratory if it is "certified
  1122. for testing."  The fees vary depending upon the laboratory and the tests you
  1123. request.
  1124.  
  1125.  
  1126.                           ...more on next page...
  1127.  
  1128.  
  1129.      Obtain a copy of your state drinking water standards (which will be at
  1130. least as strict as the federal ones and may include additional standards) from
  1131. your Public Health Department.  Request tests for bacteria and nitrates; if
  1132. you suspect that any other contaminants might be present, you should test for
  1133. those as well.  For example, if you live in a mining area, test for iron,
  1134. manganese, and aluminum; if near gas drilling operations, test for chlorides,
  1135. sodium, barium, lead, and strontium; in an agricultural area, test for
  1136. pesticides most commonly used by you and your neighbors.
  1137.      Accurate sampling is critically important.  Follow carefully the
  1138. instructions included from the laboratory.  Use only the sterile containers
  1139. provided and return samples promptly.  Failure to do so may result in
  1140. inaccurate tests.
  1141.  
  1142.  
  1143.  
  1144.  
  1145.                            ...more on next page...
  1146.  
  1147.  
  1148.      Test for bacteria and nitrates AT LEAST ONCE A YEAR and for other
  1149. chemicals every few years or more frequently if you have had recent problems.
  1150. Have the supply tested if you have drilled a new well or changed the pump or
  1151. plumbing; if you live near potentially polluting activities (mining, drilling,
  1152. toxic disposal sites, heavy applications of pesticides); or if you notice a
  1153. change in the color, taste, or odor of the water.
  1154.      Routine testing for private systems for a few of the most common
  1155. contaminants is highly recommended.  Even if you currently have a safe, pure
  1156. water supply, regular testing can be valuable because it established a record
  1157. of water quality.  This record can be helpful in solving any future problems
  1158. and in obtaining compensation if someone damages your water supply.
  1159.  
  1160.  
  1161.  
  1162.  
  1163.                           ...more on next page...
  1164.  
  1165.  
  1166.      Here is the suggested routine monitoring schedule:
  1167.     -- Once each year test for coliform bacteria, nitrate, pH and TDS (Total
  1168.      Dissolved Solids).  It is best to test for these contaminants during the
  1169.      spring or summer following a rainy period.  These tests should also be
  1170.      conducted after repairing or replacing an old well or pipes, and after
  1171.      installing a new well or pump.
  1172.     -- Every three (3) years test for sulfate, chloride, iron, manganese,
  1173.      lead, hardness and corrosion index.
  1174.     -- Also, test for nitrates during a pregnancy at the beginning, 6 months,
  1175.      and 6 months after birth.
  1176.     -- If nitrates aren''t found, it is likely that pesticides and other
  1177.      agricultural chemicals aren''t in large quantities either.
  1178.  
  1179.      The cost of testing water samples varies from several dollars to several
  1180. thousand dollars depending on the detail of the test.  Before testing water,
  1181. an estimate of the cost should be obtained.
  1182.      A list of #mlaboratories#m that test water samples is available.
  1183.                           ...more on next page...
  1184.  
  1185.      For additional information concerning groundwater and groundwater
  1186. quality, contact:
  1187.  
  1188.                       #mCooperative Extension Service#m
  1189.  
  1190.                      #mAgricultural Water Quality Initiative#m
  1191.  
  1192.                       #mWater Resources Research Center#m
  1193. ').
  1194. end.
  1195.  
  1196. topic 'laboratories'.
  1197. window ('Water Testing Laboratories',lightgreen,red,yellow,,,,12).
  1198. say ('
  1199.      Laboratory addresses are available for the following cities
  1200. in Indiana:
  1201.           #mClarksville#m            #mIndianapolis#m
  1202.           #mColumbus#m               #mLaOtto#m
  1203.           #mElkhart#m                #mMadison#m
  1204.           #mEvansville#m             #mMuncie#m
  1205.           #mFort Wayne#m             #mSouth Bend#m
  1206.           #mGoshen#m                 #mValparaiso#m
  1207.           #mHammond#m                #mWarsaw#m
  1208. ').
  1209. close_window ().
  1210. end.
  1211.  
  1212. topic 'Clarksville'.
  1213. window ('Clarksville',lightmagenta,brown,yellow,,,31,6).
  1214. say ('
  1215. Environmental Consultants, Inc.
  1216. 391 Newman Avenue
  1217. Clarksville, IN 47130
  1218. TEL: (812) 282-8481
  1219. ').
  1220. close_window ().
  1221. end.
  1222.  
  1223. topic 'Columbus'.
  1224. window ('Columbus',lightcyan,red,yellow,,,30,6).
  1225. say ('
  1226. SIECO Environmental Laboratory
  1227. 629 Washington
  1228. Columbus, IN 47201
  1229. TEL: (812) 372-9911
  1230. ').
  1231. close_window ().
  1232. end.
  1233.  
  1234. topic 'Elkhart'.
  1235. window ('Elkhart',lightmagenta,brown,yellow,,,54,11).
  1236. say ('
  1237. Consumer Healthcare Division - Microbiology Laboratory
  1238. 1127 Myrtle Street
  1239. Elkhart, IN 46514
  1240. TEL: (219) 264-8258
  1241.  
  1242. Mansfield Laboratories, Inc.
  1243. 53518 1/2 County Road 9, North
  1244. Elkhart, IN 46514
  1245. TEL: (219) 264-2586
  1246. ').
  1247. close_window ().
  1248. end.
  1249.  
  1250. topic 'Evansville'.
  1251. window ('Evansville',lightcyan,brown,yellow,,,27,11).
  1252. say ('
  1253. Core Laboratories, Inc.
  1254. 2315 Glenview Avenue
  1255. Evansville, IN 47712
  1256. TEL: (812) 424-2909
  1257.  
  1258. National Laboratories, Inc.
  1259. 105 South Baker
  1260. Evansville, IN 47712
  1261. TEL: (812) 422-4119
  1262. ').
  1263. close_window ().
  1264. end.
  1265.  
  1266. topic 'Fort Wayne'.
  1267. window ('Fort Wayne',lightcyan,brown,yellow,,,30,11).
  1268. say ('
  1269. Edglo Laboratories, Inc.
  1270. 2107 East Washington Blvd.
  1271. Fort Wayne, IN 46803
  1272. TEL: (219) 424-1622
  1273.  
  1274. A & L Labs
  1275. Great Lakes Laboratories, Inc.
  1276. 3505 Consetoga Dr.
  1277. Ft. Wayne, IN 46808
  1278. ').
  1279. close_window ().
  1280. end.
  1281.  
  1282. topic 'Goshen'.
  1283. window ('Goshen',lightmagenta,brown,yellow,,,23,6).
  1284. say ('
  1285. Dairy Farms Products
  1286. 1110 South Ninth Street
  1287. Goshen, IN 46526
  1288. TEL: (219) 533-3141
  1289. ').
  1290. close_window ().
  1291. end.
  1292.  
  1293. topic 'Hammond'.
  1294. window ('Hammond',lightcyan,red,yellow,,,44,6).
  1295. say ('
  1296. Microbac Laboratories Inc. - Seaway Division
  1297. 542-544 Conkey Street
  1298. Hammond, IN 46324
  1299. TEL: (219) 932-1770
  1300. ').
  1301. close_window ().
  1302. end.
  1303.  
  1304. topic 'Indianapolis'.
  1305. window ('Indianapolis',lightmagenta,brown,yellow,,,38,11).
  1306. say ('
  1307. NET Midwest, Inc.
  1308. 6964 Hillsdale Court
  1309. Indianapolis, IN 46250
  1310. TEL: (317) 842-4261
  1311.  
  1312. Consumer Products, Inc.
  1313. 9550 Zionsville Road
  1314. Indianapolis, IN 46268
  1315. TEL: (317) 873-7292
  1316.         ...more on next page...
  1317. Mosely Laboratories, Inc.
  1318. 3862  East Washington Street
  1319. Indianapolis, IN 46201
  1320. TEL: (317) 359-9528
  1321.  
  1322. OA Laboratories, Inc.
  1323. 1437 Sadler Circle
  1324. West Drive
  1325. Indianapolis, IN 46239
  1326. TEL: (317) 353-9721
  1327.        ...more on next page...
  1328.  
  1329. Engineering and Testing Services, Inc.
  1330. 6201 Coffman Road
  1331. Indianapolis, IN 46269
  1332. TEL: (317) 299-8511
  1333.  
  1334. Environmental Service Group
  1335. 520 Virginia Avenue
  1336. Indianapolis, IN 46203
  1337. TEL: (317) 635-1123
  1338.        ...more on next page...
  1339.  
  1340. ATEC
  1341. 5150 East 65th Street
  1342. Indianapolis, IN 46220-4871
  1343. TEL: (317) 849-4990
  1344.  
  1345. EMS Laboratories
  1346. 7901 West Morris Street
  1347. Indianapolis, IN
  1348. TEL: (317) 243-8304
  1349. ').
  1350. close_window ().
  1351. end.
  1352.  
  1353. topic 'LaOtto'.
  1354. window ('LaOtto',lightmagenta,red,yellow,,,31,6).
  1355. say ('
  1356. Pollution Control Systems, Inc.
  1357. CR 550 South, Box 17
  1358. LaOtto, IN 46763
  1359. TEL: (219) 637-3137
  1360. ').
  1361. close_window ().
  1362. end.
  1363.  
  1364. topic 'Madison'.
  1365. window ('Madison',lightgreen,red,yellow,,,26,6).
  1366. say ('
  1367. Environmental Laboratories
  1368. 635 Green Road Box 972
  1369. Madison, IN 47250
  1370. TEL: (812) 273-6699
  1371. ').
  1372. close_window ().
  1373. end.
  1374.  
  1375. topic 'Muncie'.
  1376. window ('Muncie',lightcyan,red,yellow,,,25,11).
  1377. say ('
  1378. Division of Water Quality
  1379. 5002 Kilgore Avenue
  1380. Muncie, IN 47304
  1381. TEL: (317) 747-4896
  1382.  
  1383. Sherry Laboratories
  1384. P.O. Box 2847
  1385. 2203 South Madison Street
  1386. Muncie, IN 47307-0847
  1387. ').
  1388. close_window ().
  1389. end.
  1390.  
  1391. topic 'South Bend'.
  1392. window ('South Bend',lightmagenta,brown,yellow,,,35,11).
  1393. say ('
  1394. EIS Environmental Engineers, Inc.
  1395. 1701 North Ironwood Drive
  1396. South Bend, IN 46635
  1397. TEL: (219) 277-5715
  1398.  
  1399. Williams Laboratory Service, Inc.
  1400. 1843 Commerce Drive
  1401. South Bend, IN 46628
  1402. TEL: (219) 234-3126
  1403.       ...more on next page...
  1404.  
  1405. Ames Quality Assurance Microbiology
  1406. 4315 South Lafayette Boulevard
  1407. South Bend, IN 46614
  1408. TEL: (219) 291-3221
  1409.  
  1410. MAS Technology Corporation
  1411. 430 North Michigan Street
  1412. South Bend, IN 46601
  1413. TEL: (219) 233-3272
  1414.       ...more on next page...
  1415. Environmental Health Laboratories
  1416. 430 North Michigan Street
  1417. South Bend, IN 46601
  1418. TEL: (219) 234-8827
  1419. ').
  1420. close_window ().
  1421. end.
  1422.  
  1423. topic 'Valparaiso'.
  1424. window ('Valparaiso',lightcyan,red,yellow,,,21,6).
  1425. say ('
  1426. Northern Laboratories
  1427. 158 Napolean Street
  1428. Valparaiso, IN 46383
  1429. TEL: (219) 464-2389
  1430. ').
  1431. close_window ().
  1432. end.
  1433.  
  1434. topic 'Warsaw'.
  1435. window ('Warsaw',lightgreen,red,yellow,,,24,12).
  1436. say ('
  1437. Micon Laboratories, Inc.
  1438. P.O. Box 713
  1439. 320 North McKinley
  1440. Warsaw, IN 46580
  1441. TEL: (219) 267-5284
  1442.  
  1443. Turner Technologies
  1444. P.O. Box 1096
  1445. Warsaw, IN 46580
  1446. TEL: (219) 267-3305
  1447. ').
  1448. close_window ().
  1449. end.
  1450.  
  1451. topic 'Water Resources Research Center'.
  1452. window ('Water Resources Research Center',lightgreen,red,yellow).
  1453. say ('
  1454.               Water Resources Research Center (WRRC)
  1455.               Jeff Wright, Director
  1456.               Purdue University
  1457.               West Lafayette, IN 47907
  1458.  
  1459.               Phone: (317) 494-8041
  1460.  
  1461.  
  1462.  
  1463.                     ...more on next page...
  1464.  
  1465.      Educational programs and interdisciplinary investigations in
  1466. water resources are coordinated by the Water Resources Research
  1467. Center, a constituent component of the Purdue University Natural
  1468. Resources Research Institute.  The center administers the federal
  1469. and state cooperative research and training program as instituted
  1470. by the Water Resources Research Act of 1984 (P.L. 98-242) under
  1471. the auspice of the United States Geological Survey in the U.S.
  1472. Department of the Interior.
  1473.  
  1474.                      ...more on next page...
  1475.  
  1476.      The objective of the Water Resources Research Center is to
  1477. bring the intellectual and physical resources of the University
  1478. to bera on the solution of the increasingly important scientific,
  1479. technical, economic, and management problems associated with
  1480. quantity and quality aspects of the development, use, and conser-
  1481. vation of our water resources.  The center also has the
  1482. responsibility for the dissemination of technical information.
  1483. ').
  1484. close_window ().
  1485. end.
  1486.  
  1487. topic 'Agricultural Water Quality Initiative'.
  1488. window ('Agricultural Water Quality Initiative',lightcyan,red,yellow).
  1489. say ('
  1490.           Agricultural Water Quality Initiative
  1491.           Dennis Le Master, Chairman
  1492.           Department of Forestry and Natural Resources
  1493.           Purdue University
  1494.           West Lafayette, IN 47907
  1495.  
  1496.           (317) 494-3590
  1497.  
  1498.                    ...more on next page...
  1499.  
  1500.      The purpose of the Agricultural Water Quality Initiative are
  1501. to facilitate development and dissemination of polity-relevant
  1502. knowledge on the effects of agricultural practices and chemicals
  1503. on water quality and to encourage appropriate policies to assure
  1504. adequate supplies of quality ground and surface water.  Strong
  1505. efforts are made to ensure this initiative is integrated with
  1506. existing agricultural and water resources research programs so
  1507. they complement one another, as well as existing educational
  1508. programs offered by Schools of Agriculture and Engineering and
  1509. the Department of Earth and Atmospheric Sciences.
  1510.                     ...more on next page...
  1511.      The goals of the Agricultural Water Quality Initiative are:
  1512.  
  1513.      (1) To improve knowledge on the impact of pollutants from
  1514.          agricultural activities on ground and surface water,
  1515.      (2) To promote adoption and implementation of appropriate
  1516.          policies to assure water quality protection, and
  1517.      (3) To develop and disseminate knowledge on cost-effective
  1518.          agricultural systems that protect water quality.
  1519.  
  1520.      Included among the activities of the Initiative are:
  1521.                      ...more on next page...
  1522.      1. Increase knowledge on the detection, identification,
  1523.         fate, and effects of agricultural pollutants in ground
  1524.         and surface waters.
  1525.      2. Determine the effects of agricultural and silvicultural
  1526.         management practices on pollution by pesticides and other
  1527.         chemicals.
  1528.      3. Develop and evaluate alternative crop, soil, water
  1529.         management, and animal waste systems to minimize
  1530.         degradation of water quality.
  1531.  
  1532.                      ...more on next page...
  1533.      4. Determine the effects of agricultural pollutants on
  1534.         aquatic ecosystems and their uses.
  1535.      5. Monitor water supplies and collect data to determine more
  1536.         accurately the extent of ground and surface water
  1537.         pollution.
  1538.      6. Conduct training programs for agriculturists on
  1539.         management practices and use of chemicals to protect the
  1540.         quality of both ground and surface water.
  1541.      7. Conduct educational programs for the general public to
  1542.         create a better understanding of water quality issues.
  1543.                      ...more on next page...
  1544.      8. Perform policy analysis on legislative and regulatory
  1545.         proposals with regard to agricultural activities and
  1546.         water quality.
  1547.      The Agricultural Water Quality Initiative is a recognized
  1548. unit in the School of Agriculture, providing both a coordinating
  1549. and service role.  It operates in the organizational context of
  1550. the #mCooperative Extension Service#m, the Agricultural Experiment
  1551. Station, the #mWater Resources Research Center#m, and academic
  1552. departments within and outside the School of Agriculture.
  1553. ').
  1554. close_window ().
  1555. end.
  1556.  
  1557. topic 'treat the water'.
  1558. window ('Treating the Water',lightgreen,brown,yellow,,,,13).
  1559. say ('
  1560.      Devices to treat water in the home can be helpful.  Usually
  1561. these devices are used for #m"point-of-use" treatment#m such as in 
  1562. the kitchen to purify water for food preparation.  These devices 
  1563. must be chosen very carefully, however, according to the particular
  1564. contaminates in the water and must also be well maintained to
  1565. continue to treat the water.  They are not appropriate for
  1566. removal of constant high levels of contaminants and do not
  1567. prevent health problems which may be caused by bathing in water
  1568. containing high levels of toxic chemicals.  For this reason,
  1569. carbon filter treatment may be necessary for the entire house as
  1570. "point-of-entry" treatment.
  1571. ').
  1572. close_window ().
  1573.  
  1574. topic '"point-of-use" treatment'.
  1575. picture ('treat').
  1576. end.
  1577.  
  1578. end.
  1579.  
  1580. topic 'allowable chemical concentrations'.
  1581. window ('Allowable Chemical Concentrations').
  1582. say ('   Maximum Concentration in mg/l
  1583. ------------------------------------|
  1584. Arsenic  0.05        Lead      0.05 | Private Water Systems 
  1585. Barium   1.00        Mercury   0.002| Handbook, Midwest Plan
  1586. Cadmium  0.01        Nitrate   10.0 | Service, Iowa University,
  1587.                      (Nitrogen)     | Ames, Iowa 50011.
  1588. Chromium 0.05        Selenium  0.01 | 
  1589. Fluoride 1.4-2.4 *   Silver    0.05 |
  1590. For #mdelivered water#m the requirements change.
  1591. * Consult your local health authority for maximum fluoride levels
  1592.   in your area.
  1593. ').
  1594. close_window ().
  1595.  
  1596. topic 'delivered water'.
  1597. window ('Delivered Water',darkgray,green,yellow,,,,14).
  1598. say ('                     Secondary Maximum Levels
  1599. Contaminate        Level           Contaminate        Level
  1600. ---------------------------------|-------------------------------
  1601. Chloride           250 mg/l      | Manganese          0.05 mg/l
  1602. Color              15 color units| Odor               3 threshold
  1603. Copper             1 mg/l        |                      odor ##
  1604. Corrosivity        Non-Corrosive | pH                 6.5 - 8.5
  1605. Foaming Agents     0.5 mg/l      | Sulfate            250 mg/l
  1606. Hydrogen Sulfide   0.5 mg/l      | TDS                500 mg/l
  1607. Iron               0.3 mg/l      | Zinc               5 mg/l
  1608. Private Water Systems Handbook, Midwest Plan Service, Iowa
  1609. University, Ames, Iowa 50011.
  1610. ').
  1611. close_window ().
  1612. end.
  1613.  
  1614. end.
  1615.  
  1616. topic 'palatable water'.
  1617. window ('Palatable Water',lightgreen,cyan,yellow).
  1618. say ('
  1619.      Water to be palatable must be non-offensive to the taste,
  1620. smell, or sight.  Chemicals that cause odor and/or taste are
  1621. listed on the next page.  Many individuals will accept greater
  1622. concentrations than those listed.  Remove all visible and
  1623. odorous materials, even though they may not cause disease, from
  1624. water to be used in the home.
  1625.  
  1626.  
  1627.                     ...more on next page...
  1628.  
  1629. Chemical         Concentration  Chemical          Concentration
  1630. ------------------------------|----------------------------------
  1631. Chlorides        100-250 mg/l | Copper            1 mg/l
  1632. Total Dissolved               | Hydrogen Sulfide  0.1-0.2 mg/l
  1633.   Solids         500-1000 mg/l| Iron              0.1-0.2 mg/l
  1634.                               | Zinc              5 mg/l
  1635.                               | A B S (Detergent) 0.5 mg/l
  1636.                               | Phenol            0.001 mg/l
  1637. Private Water Systems Handbook, Midwest Plan Service, Iowa
  1638. University, Ames, Iowa 50011.
  1639. ').
  1640. close_window ().
  1641. end.
  1642.  
  1643. end.
  1644.  
  1645. topic 'quality needed for each use'.
  1646. window ('Quality Needed for each Use',lightmagenta,red,yellow,,,,14).
  1647. say ('                        Safe   Palatable   Soft*   Non-Staining
  1648. -----------------------------------------------------------------
  1649. Drinking                  X        X
  1650. Food Preparation          X        X         X          X
  1651. Personal Hygiene          X        X         X          X
  1652. Dish and Utensil Washing  X                  X          X
  1653. Clothes Washing           X                  X          X
  1654. Toilet Flushing                                         X
  1655. ------Private Water Systems Handbook, Midwest Plan Service,------
  1656.               Iowa University, Ames, Iowa, 50011.
  1657. * #mSoftened water#m may not be recommended for a person on a 
  1658. low-salt diet.  Consult your doctor.
  1659. ').
  1660. close_window ().
  1661. end.
  1662.  
  1663. topic 'softened water'.
  1664. window ('Soft Water',lightcyan,brown,yellow,,,,13).
  1665. say ('
  1666.      "Soft water" is a relative term, but water to be soft must
  1667. contain low amounts of dissolved calcium and magnesium, which
  1668. cause water to be hard.
  1669.            Milligrams per Liter    Grains per Gallon
  1670. -----------------------------------------------------------------
  1671. Soft          0 to 60 mg/l            0 to 3.5 gpg
  1672. Moderate      61 to 120 mg/l          3.5 to 7 gpg
  1673. Hard          121 to 180 mg/l         7 to 10.5 gpg
  1674. Very Hard     over 180 mg/l           over 10.5 gpg
  1675. Private Water Systems Handbook, Midwest Plan Service, Iowa
  1676. University, Ames, Iowa 50011.
  1677. ').
  1678. close_window ().
  1679. end.
  1680.  
  1681. topic 'Further Reading'.
  1682. say ('     If you have a particular interest in groundwater, or if some other topic
  1683. in this program has interested you, check out the following list of materials.
  1684.      Groundwater Hydrology.  Herman Bouwer.  R. R. Donnelly & Sons Company.
  1685.           McGraw-Hill, Inc.  New York.  1978.
  1686.      Hydrology for Engineers.  Ray K. Kinsley, Jr., Max A. Kohler,
  1687.           Joseph L. H. Paulhus.  R. R. Donnelly & Sons Company.  McGraw-Hill,
  1688.           Inc.  New York.  1982.
  1689.      Groundwater and Wells. Fletcher G. Driscoll, Ph. D.  Johnson Division,
  1690.           St. Paul, Minnesota.  1986.
  1691.      Soil and Water Conservation Engineering.  Glen O. Schwab,
  1692.           Richard K. Frevert, Talcott W. Edminster, Kenneth K. Barnes.  John
  1693.           Wiley and Sons, Inc.  New York.  1981.
  1694.      The Protection of Indiana''s Groundwater - Strategy and Draft
  1695.           Implementation Plan.  1987.
  1696.      National Water Summary 1986.  U. S. Geological Survey.  U. S. Government
  1697.           Printing Office.  1986.
  1698.  
  1699.      Also available is a list of the #mCooperative Extension Service#m materials
  1700. relevant to groundwater.
  1701. ').
  1702. end.
  1703. topic 'Cooperative Extension Service'.
  1704. window ('Cooperative Extension Service',lightcyan,blue,yellow,1,1,80,19).
  1705. say ('
  1706.      Purdue University Cooperative Extension Service Information Materials
  1707.  
  1708.      The following materials can be obtained through:
  1709. ------------------------------------------------------------------------------
  1710.                      Agricultural Communication Service
  1711.                      Media Distribution Center
  1712.                      301 South Second Street
  1713.                      Lafayette, Indiana 47905-1092
  1714.  
  1715.                      (317) 494-6794 - Hours 8-5, M-F
  1716. ------------------------------------------------------------------------------
  1717.                      The Cooperative Extension Service
  1718.  
  1719.                               (317) 494-8491
  1720. ------------------------------------------------------------------------------
  1721.  
  1722.                            ...more on next page...
  1723.  
  1724.   Conservation and Quality...
  1725.      AE-114 Terracing as a "Best Management Practice" for Controlling Erosion
  1726.             and Protecting Water Quality. 1981
  1727.      AY-222 Conservation Tillage to Maintain Soil Productivity and Improve
  1728.             Water Quality. 1979
  1729.      FNR-88 Forestry and Water Quality: Pollution Control Practices. 1978
  1730.      FNR-89 Criteria for Evaluating Forestry Activities in Relation to Water
  1731.             Quality Management. 1978
  1732.      ID-92  Conservation Problems Here? 1973
  1733.      PN-3   Interactions of Water, Plants and Soil in the Erosion Process.1978
  1734.      PN-4   Value of the "Universal Soil Loss Equation" to the Water Quality
  1735.             Management Planning. 1979
  1736.      PN-5   Conservation Measures for Erosion-Sediment Control - Types of
  1737.             Practices and Assistance Available in Applying Them. 1979
  1738.      PN-6   Effects of Plant Nutrients on Water Quality in Indiana. 1979
  1739.      PN-7   Effects of Animal Agriculture on Water Quality in Indiana. 1979
  1740.      PN-8   Urban Area Runoff as Source of Nonpoint Pollution. 1980
  1741.      PN-10  Available Publications Pertaining to the Control of Nonpoint-
  1742.             Source Water Pollution. 1980          ...more on next page...
  1743.  
  1744.   Systems and Supply...
  1745.      NCH-31 Safety Tips and Safety Devices for Irrigation Equipment. 1986
  1746.      NCH-41 Irrigation Water Quality and Corn Production. 1987
  1747.      MWPS-14 Private Water Systems Handbook. 1973 ($4.00)
  1748.      F-2274 Water-Quality Improvements for Farmstead and Rural Home Water
  1749.             Systems. 1984
  1750.  
  1751. Natural Resource Development and Environmental Issues...
  1752.      EC-594 Water Resources and Rights: Emerging Issues. 1984 ($1.00)
  1753.  
  1754. ------------------------------------------------------------------------------
  1755. Note:  Except for MWPS-14 and EC-594, these documents are free if ordered in
  1756.        low quantities.  Contact the above address for more information.
  1757. ').
  1758. close_window ().
  1759. end.
  1760.  
  1761. topic 'Questionnaire'.
  1762.  
  1763. say ('#fblue #bwhite #e
  1764.      This is a questionnaire based upon groundwater supply and testing.
  1765.  
  1766.      All of the questions require a simple Yes or No answer.  When the prompt
  1767. appears ("=>") for the appropriate question, type your answer - Yes or No.
  1768. You may use the Backspace key to change your answer.  Once you are satisfied
  1769. with your answer, press the Enter key.  This will bring you to the next
  1770. question.  Please type the entire word of Yes or No instead of just Y or N.
  1771. ').
  1772. write (con:,'#fyellow #blightred #e  Do you...
  1773.  - Have limestone bedrock fairly close to the surface?
  1774.  - Have sandy soils?
  1775.  - Have water tables within 30 ft. of the surface?
  1776.  - Have a dug or sandpoint well less than 50 ft. deep?
  1777.  - Have your well''s casing at or below ground level?
  1778.  - Have your well improperly grouted to prevent contamination?
  1779.  - Have a well pit, uncapped well, or abandoned well?
  1780.  - Have an older submersible well pump?
  1781.  - Have lead water pipes or lead-soldered pipe joints?
  1782.  - Use your well for both animals and household use?
  1783.  - Have livestock/poultry within 200 ft. of a well?
  1784.  - Have a feedlot, manure lagoon, or holding facility?
  1785.  - Have a septic tank/field within 75 ft. of a well?
  1786.              - or 150 ft. in the case of sandy soil.
  1787.  - Have a surface water drainage well?
  1788.  - Have a farm dump?
  1789.  - Have an underground fuel tank?
  1790.  - Dump or spread used oil to control road dust?').
  1791. test is no. coord is 2. coordmax is 15.
  1792. do (answer).
  1793. coord is 16. coordmax is 20.
  1794. do (answer).
  1795. if ?test is yes then do (bad) else do (good).
  1796.  
  1797. topic answer.
  1798. while ?coord < ?coordmax then
  1799.      move_cursor (65,?coord) and
  1800.      coord is ?coord + 1 and
  1801.      read_response ('',ans,'No') and
  1802.      if ?ans is 'Yes' then test is 'Yes'.
  1803. end.
  1804.  
  1805. topic bad.
  1806. say ('
  1807.      You stated that one or more of the previous questions was a problem that
  1808. needed attention.  You should definitely begin a program of annual water
  1809. testing.  Also, you should pay special attention to reducing your system''s
  1810. pollution potential and/or reduce your production costs.
  1811. ').
  1812. end.
  1813.  
  1814. topic good.
  1815. say ('
  1816.      You stated that NONE of the previous questions were any problem in your
  1817. system.  Congratulations!!  It is still suggested, however, that you check
  1818. your water annually for any possible developing problems.
  1819. ').
  1820. end.
  1821.  
  1822. end.
  1823.  
  1824. topic 'Review'.
  1825. list is ['Definition of Groundwater','Importance of Groundwater',
  1826.           'Contamination of Groundwater',
  1827.           'What if Groundwater becomes Contaminated?','Quit'].
  1828. write (con:,'#e     Which section would you like to review?').
  1829. move_cursor (5,5).
  1830. menu (choice,?list).
  1831. if ?choice <> 'Quit' then do (?choice) and do ('Review').
  1832. end.
  1833.  
  1834. topic 'The Quiz'.
  1835. ask ('
  1836.      Would you like to review any of the groundwater sections?',
  1837.       ans,['Yes','No']).
  1838. if ?ans is 'Yes' then do ('Review').
  1839. say ('
  1840.      You will be asked a series of twenty-five questions pertaining to
  1841. groundwater.  Every question is a multiple choice type question.  Read the
  1842. question and choose the correct answer.  Select the answer and press either
  1843. Enter or your left mouse button.  At the end of the quiz, you will be shown
  1844. the total number of right and wrong answers along with a percent score.
  1845.  
  1846.      To select an answer, use the cursor (arrows) keys or the mouse.  When
  1847. you have highlighted your choice, press Enter or the Left mouse button.
  1848. ').
  1849. read_response ('#e Please enter your name (First and Last):',name).
  1850. write ('grades.dat',?name).
  1851. count=0. right=0. wrong=0. percent=0.
  1852. while ?count <25 then
  1853.      count = ?count + 1 and
  1854.      do ('next question') and
  1855.      do ('ask question').
  1856. wrong=25-?right. percent=?right*4.
  1857. close ('quiz.txt').
  1858. say ('
  1859.      Here are your results:
  1860.  
  1861.      You got#s',?right,'#lquestions correct.
  1862.  
  1863.      You got#s',?wrong,'#lquestions wrong.
  1864.  
  1865.  
  1866.      You got#s',?percent,'% #lof the questions right.
  1867.  
  1868. ').
  1869. write ('grades.dat',['#s Number Right =',?right,'; Number Wrong =',?wrong,';
  1870. Percent Score =',?percent,'% #l #n ']).
  1871. close ('grades.dat').
  1872.  
  1873. topic 'next question'.
  1874. quest=read_line ('quiz.txt').
  1875. answer1=read_line ('quiz.txt').
  1876. answer2=read_line ('quiz.txt').
  1877. answer3=read_line ('quiz.txt').
  1878. answer4=read_line ('quiz.txt').
  1879. correct=read_line ('quiz.txt').
  1880. dummy=read_line ('quiz.txt').
  1881. end.
  1882.  
  1883. topic 'ask question'.
  1884. write (con:,'#e #s #o
  1885.      Question ##',?count,'                        Name : ',?name,'#l
  1886.  
  1887.      ',?quest,' #i
  1888.  
  1889.  
  1890.  
  1891.      ').
  1892. choice is 0.
  1893. menu (choice,[?answer1,?answer2,?answer3,?answer4]).
  1894. if ?choice is ?correct then right=?right+1 and write (con:,'RIGHT!') else
  1895.      write (con:,'WRONG.').
  1896. write (con:,'#n ',?correct,'#w ').
  1897. end.
  1898.  
  1899. end.
  1900.  
  1901. end.
  1902.  
  1903. end.
  1904.  
  1905.  
  1906.  
  1907.  
  1908.  
  1909.  
  1910.  
  1911.  
  1912.  
  1913.  
  1914.  
  1915.  
  1916.  
  1917.  
  1918.  
  1919.  
  1920.